#set local path
wd<-"C:/Users/MUNTEANU_A/Dropbox/Research/2018 JMP/package/"

#load packages
pacman::p_load(stringdist,
               kableExtra,
               openxlsx,
               fixest,
               ggplot2,
               scales,
               modelsummary,
               readxl,
               stringr,
               tidyr,
               dplyr)
           

#set file paths
wd_code<-paste0(wd,'code/replication/')
wd_data_intermediate<-paste0(wd,'data/intermediate/')
wd_data_final<-paste0(wd,'data/final/')

#load data
setwd(wd_data_final)
data_student_raw<-readRDS("data_student_anon")
data_teacher_raw<-readRDS('data_teacher_anon')
data_exp_raw<-readRDS('data_expenditure_anon') 
data_student_teacher_raw<-readRDS('data_student_teacher_anon') 
data_student_exp_raw<-readRDS('data_student_expenditure_anon') 
data_student_teacher_exp_raw<-readRDS("data_student_teacher_expenditure_anon") 
openings<-readRDS('openings_anon')

